---
title: "multipage"
output: 
  flexdashboard::flex_dashboard:
    orientation: rows
    vertical_layout: fill
    source_code: embed
    theme: flatly
---

```{r setup, include=FALSE}
pacman::p_load(flexdashboard, ggplot2, plotly)
```

Page 1
============================================================================
Row 
-----------------------------------------------------------------------

### valueBox

```{r}
valueBox(value = round(mean(iris$Sepal.Length), digits = 2), caption = "Mean Sepal Length")
```

### Gauge

```{r}
gauge(value = iris$Sepal.Length, min = 0, max = 8)
```

### valueBox2

```{r}
valueBox(value = round(mean(iris$Sepal.Width), digits = 2), caption = "Mean Sepal Width", color = "green")
```

Row
-----------------------------------------------------------------------

### Chart B

```{r}
ggplot(iris, aes(x = Petal.Length, y = Petal.Width, color = Species)) + geom_point()
```

### Chart C

```{r}
ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, color = Species)) + geom_point()
```


Page 2
============================================================================

Column {.tabset}
-----------------------------------------------------------------------

### Chart E

```{r}
ggplotly(ggplot(iris, aes(x = Petal.Length, y = Petal.Width, color = Species)) + geom_point() + geom_smooth())
```

### Chart F

```{r}
ggplotly(ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, color = Species)) + geom_point() + geom_smooth())
```